-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(0, 39, 640, 519)
-- screen: Rect(0, 0, 1024, 768)
-- card dimensions: w=640 h=480
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 5472
-- card count: 1
-- first card id: 8174
-- list block id: 2586
-- print block id: 2232
-- font table block id: 3573
-- style table block id: 3106
-- free block count: 0
-- free size: 0 bytes
-- total size: 10080 bytes
-- stack block size: 6144 bytes
-- created by hypercard version: 0x02208000
-- compacted by hypercard version: 0x02308000
-- modified by hypercard version: 0x02208000
-- opened by hypercard version: 0x02308000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0xDB9A9B4D
----- HyperTalk script -----
on startUp
  global lastCard
  global lastBook

  --  put "go to card 1 of stack Guinness:mac:main" into lastCard
  set lockscreen to true

  if "Audio Help" is in stacksInUse then stop using stack "Audio Help"
  set numberFormat to "0"
  -- AddColor install, 16

  put "Main" into lastBook
  put the number of this card into lastCard

  -- delete menu 1
  delete menu "File"
  delete menu "Edit"
  delete menu "Go"
  delete menu "Font"
  delete menu "Style"


  -- create menu "⌃" -- resource...
  -- create menu "" -- k
  -- put "About Guinness Encyclopedia" before menuItem 1 of menu 1
  -- delete menuItem 2 of menu 1
  create menu "File"
  put "Page Setup..." into menu "File"
  put "Print Card"  after menuItem "Page Setup..." of menu "File"
  put "Print Image"  after menuItem "Print Card" of menu "File"
  put "Print Text"  after menuItem "Print Image" of menu "File"
  put "-"  after menuItem 4 of menu "File"
  put "Quit Encyclopedia"  after menuItem 5 of menu "File"
  set the cmdChar of menuItem "Quit Encyclopedia" of menu "File" to "Q"
  set the cmdChar of menuItem "Print Card" of menu "File" to "P"

  create menu "Edit"
  put "Copy Text" into menu "Edit"
  put "Copy Image" after menuItem "Copy Text" of menu "Edit"
  set the cmdChar of menuItem "Copy Text" of menu "Edit" to "C"

  create menu "Go"
  put "Main" into menu "Go"
  put "Go Back" after menuItem "Main" of menu "Go"
  put "Help" after menuItem "Go Back" of menu "Go"
  put "Gallery" after menuItem "Help" of menu "Go"
  put "Encyclopedia" after menuItem "Gallery" of menu "Go"
  put "Explorer" after menuItem "Encyclopedia" of menu "Go"
  put "Languages" after menuItem "Explorer" of menu "Go"
  put "Credits" after menuItem "Languages" of menu "Go"

  create menu "Reader"
  put "Caption" into menu "Reader"
  put "Main Text" after  menuItem "Caption" of menu "Reader"

  disable menu "Reader"
  set lockscreen to false
  --pass startUp

end startUp

on AC_Transistions
end AC_Transistions

on AC_SetTransistions
end AC_SetTransistions

on resumeStack
  disable menuItem "Print Text" of menu "File"
  disable menuItem "Print Image" of menu "File"
  enable menu "Edit"
  enable menu "Go"
  disable menuItem "Copy Text" of menu "Edit"
  disable menuItem "Copy Image" of menu "Edit"

end resumeStack

on openCard

  Send colorMe to this card

  pass openCard
  unlock screen
end openCard

on doMenu menuItem
  if menuItem is "Go Back" then
    WTIgoback
  else if menuItem is "Help" then
    WTIhelp
    exit doMenu
  else if menuItem is "Main" then
    WTImain
  else if menuItem is "Gallery" then
    WTIgallery
  else if menuItem is "Explorer" then
    WTIexplore
  else if menuItem is "Credits" then
    WTIcredits
  else if menuItem is "Encyclopedia" then
    WTIencycl
  else if menuItem is "Languages" then
    go to card 1 of stack "Guinness:mac:language samples" in a new window
  else if menuItem is "About Hypercard..." then
    WTIcredits
    exit doMenu
  else if menuItem is "Quit Encyclopedia" then
    doMenu "Quit HyperCard"
    exit doMenu
  end if

  pass doMenu

end doMenu

on WTIcredits
  go to card 1 of stack "Guinness:Mac:Credits"
end WTIcredits

on closeCard
  global lastCard
  global lastBook
  global lastBookN
  -- put 1 into lastBookN
  put "Main" into lastBook
  put the number of this card into lastCard
  -- put "go to card " & lCard & " of stack "Guinness:mac:main" into lastCard
  set cursor to 4
  lock screen
  pass closeCard
end closeCard

on colorMe
  AddColor colorCard,stamp,30
end colorMe


on openStack
  set lockscreen to true
  AddColor install

  disable menuItem "Print Text" of menu "File"
  disable menuItem "Print Image" of menu "File"
  enable menu "Edit"
  enable menu "Go"
  disable menuItem "Copy Text" of menu "Edit"
  disable menuItem "Copy Image" of menu "Edit"

  pass openStack
  set lockscreen to false
end openStack

on closeStack
  AddColor remove
  pass closeStack
end closeStack


on WTImain
  go to card 1 of stack "Guinness:Mac:Main"
end WTImain

on WTIhelp
  go to card 1 of stack "Guinness:Mac:Help"
end WTIhelp

on WTIquit
  doMenu "Quit HyperCard"
end WTIquit

on WTIexplore
  go to card 1 of stack "Guinness:Mac:Explorer"
end WTIexplore

on WTIgallery
  go to card 1 of stack "Guinness:Mac:Gallery"
end WTIgallery

on WTIcredits
  go to card 1 of stack "Guinness:Mac:Credits"
end WTIcredits

on WTIencycl
  go to card 1 of stack "Guinness:Mac:Encyclopedia"
end WTIencycl

on WTIgoback
  global lastCard
  -- global lastBook
  -- global lastBookN
  -- go to card lastCard of lastBook

  go to recent card
end WTIgoback